|
2000
|
How can I change the visual appearance of the filter bar's close button (solid)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := RGB(255,0,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
1999
|
Is it possible to prevent definitely showing the filter bar's close button
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := -1
oDCOCX_Exontrol1:EndUpdate()
|
|
1998
|
Is it possible to show the close button only if there is a filter applied
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarShowCloseIfRequired | exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()
|
|
1997
|
The control's filter bar is not closed once I click the close button (toggle)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
var_Items:[LockedItemCount,exBottom] := 1
h := var_Items:[LockedItem,exBottom,0]
var_Items:[ItemDivider,h] := 0
var_Items:[CellValue,h,0] := "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
var_Items:[CellValueFormat,h,0] := exHTML
oDCOCX_Exontrol1:FilterBarCaption := "`<r><fgcolor=808080>` + value"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1996
|
How can I display the control's filter on a single line
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarSingleLine | exFilterBarVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1995
|
How can I display the control's filter on a single line (prompt-combined)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "`<r>` + value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1994
|
How can I get the number of results after a filter is applied
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
oDCOCX_Exontrol1:ClearFilter()
RETURN NIL
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
// FilterChange event - Occurs when the filter was changed.
OutputDebugString(String2Psz( "Items.MatchItemCount" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:MatchItemCount) ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oDCOCX_Exontrol1:Items:MatchItemCount,nil,nil)) ))
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "Item"
oDCOCX_Exontrol1:EndUpdate()
|
|
1993
|
How can I programmatically clear the control's filter
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
oDCOCX_Exontrol1:ClearFilter()
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:EndUpdate()
|
|
1992
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible | exFilterBarPromptVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1991
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:EndUpdate()
|
|
1990
|
Is it possible to prevent closing the control's filter bar, so it is always shown
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20171204"),SToD("20171214"),nil,nil)
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171202")
var_Chart:[PaneWidth,false] := 256
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarCaption := "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarVisible
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column1:FilterType := exFilter
var_Column1:Filter := "Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1989
|
What are the options to align the percent caption
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Clip")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowResizeChart := exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Chart:DrawGridLines := exRowLines
var_Chart:FirstVisibleDate := SToD("20001226")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
var_Bar := var_Chart:Bars:Add("Task%Progress")
var_Bar:Shortcut := "Task"
var_Bar:Pattern := exPatternBox
var_Bar:Color := RGB(164,164,164)
var_Bar:StartColor := RGB(240,240,240)
var_Bar:EndColor := var_Bar:StartColor
var_Bar:OverlaidType := exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Bar:Height := 15
var_Bar:[Def,exBarPercent] := 0.5
var_Bar:[Def,exBarShowPercentCaption] := true
var_Bar:[Def,exBarPercentCaptionFormat] := "<sha ;;0>%p%"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("no clip, (0-2)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 2
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 1
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 0
h := var_Items:AddItem("clip, inside (3-5)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 5
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 4
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 3
h := var_Items:AddItem("hide on min width, clip if not fit, inside (6-8)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 8
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 7
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 6
h := var_Items:AddItem("hide if not fit, no clip, inside (9-11)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 11
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 10
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 9
h := var_Items:AddItem("no clip, inside, outside (12-14)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 14
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarHAlignCaption] := 13
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 12
h := var_Items:AddItem("no clip, outside (16-18)")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarAlignPercentCaption] := 18
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarAlignPercentCaption] := 17
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarAlignPercentCaption] := 16
oDCOCX_Exontrol1:EndUpdate()
|
|
1988
|
Is it possible to determine whether a bar is in the current display area
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
METHOD OCX_Exontrol1DateChange() CLASS MainDialog
// DateChange event - Occurs when the first visible date is changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
METHOD OCX_Exontrol1FormatColumn(Item,ColIndex,Value) CLASS MainDialog
// FormatColumn event - Fired when a cell requires to format its caption.
local e,l,r,s as USUAL
s := oDCOCX_Exontrol1:Items:[ItemBar,Item,"A",exBarStart]
e := oDCOCX_Exontrol1:Items:[ItemBar,Item,"A",exBarEnd]
l := oDCOCX_Exontrol1:FormatABC("A < B",e,oDCOCX_Exontrol1:Chart:FirstVisibleDate,nil)
r := oDCOCX_Exontrol1:FormatABC("A > B",s,oDCOCX_Exontrol1:Chart:[DateFromPoint,1,-1],nil)
Value := oDCOCX_Exontrol1:FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r,nil)
RETURN NIL
METHOD OCX_Exontrol1LayoutChanged() CLASS MainDialog
// LayoutChanged event - Occurs when column's position or column's size is changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Visible")}
var_Column:FireFormatColumn := true
var_Column:[Def,exCellValueFormat] := 1
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:OverviewVisible := exOverviewShowAll
var_Chart:OverviewHeight := 64
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170808"),"A",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20180803"),SToD("20180810"),"A",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20190804"),SToD("20190812"),"A",nil)
var_Items:[SelectItem,var_Items:FocusItem] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1987
|
How can I ensure that the bar fits the control's client area
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local h,k,s as USUAL
h := oDCOCX_Exontrol1:Items:FocusItem
k := oDCOCX_Exontrol1:Items:[FirstItemBar,h]
s := oDCOCX_Exontrol1:FormatABC("(A+B)/2",oDCOCX_Exontrol1:Items:[ItemBar,h,k,exBarStart],oDCOCX_Exontrol1:Items:[ItemBar,h,k,exBarEnd],nil)
oDCOCX_Exontrol1:Chart:ScrollTo(s,1)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20180803"),SToD("20180810"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20190804"),SToD("20190812"),nil,nil)
var_Items:[SelectItem,var_Items:FocusItem] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1986
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:Caption := "NewName"
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:HTMLCaption := "<b>New</b>Name"
|
|
1985
|
How can I display the bar's duration in days, minutes, and so so on
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Tasks")}:AllowSizing := false
var_Column := IColumn{var_Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:[Def,exCellValueToItemBarKey] := "A"
var_Column:FormatColumn := "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0:=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20011230")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:OverviewVisible := exOverviewShowAll
var_Chart:OverviewHeight := 64
var_Chart:ResizeUnitScale := exSecond
var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20011231"),SToD("20020107"),"A",nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20020101"),SToD("20020214"),"A",nil)
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20020102 10:00:00"),SToD("20020102 12:00:00"),"A",nil)
h := var_Items:AddItem("Task 4")
var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020104 08:30:30"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1984
|
How can I change the background color for checked items (EBN color, frame)
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:DefaultItemHeight := 22
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=")
var_Appearance:Add(1,"CP:2 1 1 -1 -1")
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:BackColor := 0x1000000
var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1983
|
How can I change the caption of the checked items (sample 2)
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1982
|
How can I change the caption of the checked items (sample 1)
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1981
|
How can I change the font for the checked items
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
local f as stdFont
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DefaultItemHeight := 22
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
f:Name := oDCOCX_Exontrol1:Font:Name
f:Size := 12
var_ConditionalFormat:Font := f
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1980
|
How can I bold the checked items
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1979
|
How can I change the foreground color for checked items
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:ForeColor := RGB(255,128,128)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1978
|
How can I change the background color for checked items (solid color)
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:BackColor := RGB(255,128,128)
var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1977
|
How can I change the color for checked Task bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0 = 1",nil)
var_ConditionalFormat:ApplyToBars := "Task,Summary"
var_ConditionalFormat:BarColor := RGB(255,0,0)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1976
|
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value
local var_Chart,var_Chart1 as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Tasks")}:AllowSizing := false
var_Column := IColumn{var_Columns:Add("Working")}
var_Column:[Def,exCellValueToItemBarProperty] := 258
var_Column:[Def,exCellValueToItemBarKey] := "A"
var_Column:FormatColumn := "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Chart:[PaneWidth,false] := 196
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Chart:[Level,1]:Label := "<%hh%>"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingUnits := false
var_Chart:OverviewVisible := exOverviewShowAll
var_Chart:OverviewHeight := 64
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020104"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
var_Chart1 := oDCOCX_Exontrol1:Chart
var_Chart1:UnitScale := exDay
var_Chart1:ScrollTo(var_Chart1:FirstVisibleDate,1)
oDCOCX_Exontrol1:EndUpdate()
|
|
1975
|
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
var_Editor:EditType := MaskType
var_Editor:Mask := ";;;rich"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddItem("Just a text")
var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
|
|
1974
|
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor
var_Editor:AddItem(1,"This is just the first item",nil)
var_Editor:AddItem(2,"This is just the second item",nil)
var_Editor:AddItem(3,"This is just the third item",nil)
var_Editor:EditType := DropDownType
var_Editor:Mask := ";;;rich"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("")
var_Items:AddItem("Just a text")
var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
|
|
1973
|
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem
METHOD OCX_Exontrol1OverviewZoom() CLASS MainDialog
// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
oDCOCX_Exontrol1:Chart:ResizeUnitScale := exDay
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Effort")}
var_Column:[Def,exCellValueToItemBarProperty] := 21
var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:OverviewZoomCaption := "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
var_Chart:[Label,exYear] := ""
var_Chart:[Label,exHalfYear] := ""
var_Chart:[Label,exQuarterYear] := ""
var_Chart:[Label,exThirdMonth] := ""
var_Chart:[Label,exHour] := ""
var_Chart:[Label,exMinute] := ""
var_Chart:[Label,exSecond] := ""
var_Chart:OverviewZoomUnit := 64
var_Chart:LevelCount := 2
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 128
var_Chart:HistogramView := exHistogramAllItems
var_Chart:OverviewVisible := exOverviewShowAll
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar:HistogramType := exHistOverload
var_Bar:HistogramCriticalValue := 3
var_Bar:HistogramItems := -7
var_Bar:HistogramGridLinesColor := RGB(192,192,192)
var_Bar:HistogramRulerLinesColor := RGB(0,0,1)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050623"),nil,nil)
var_Items:[CellValue,h1,1] := 4
h1 := var_Items:AddItem("Task 2")
var_Items:AddBar(h1,"Task",SToD("20050624"),SToD("20050626"),nil,nil)
var_Items:[CellValue,h1,1] := 3
h1 := var_Items:AddItem("Task 3")
var_Items:AddBar(h1,"Task",SToD("20050627"),SToD("20050629"),nil,nil)
var_Items:[CellValue,h1,1] := 2
h1 := var_Items:AddItem("Task 4")
var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),nil,nil)
var_Items:[CellValue,h1,1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1972
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
OutputDebugString(String2Psz( "BeforeExpandItem" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( "ColumnFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." ))
oDCOCX_Exontrol1:Items:InsertItem(Item,nil,"new child")
RETURN NIL
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Items")}:DisplayFilterButton := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 1")] := true
var_Items:[ItemHasChildren,var_Items:InsertItem(nil,nil,"Group 2")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1971
|
How do I change the drop down filter icon/button (black)
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:[Background,exBackColorFilter] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exForeColorFilter] := RGB(255,255,255)
oDCOCX_Exontrol1:[Description,exFilterBarExclude] := "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
oDCOCX_Exontrol1:HeaderAppearance := None2
oDCOCX_Exontrol1:BackColorHeader := RGB(0,0,0)
oDCOCX_Exontrol1:ForeColorHeader := RGB(255,255,255)
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisible
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Filter")}
var_Column:FilterList := exShowExclude | exShowCheckBox
var_Column:DisplayFilterButton := true
var_Column:AllowSort := false
var_Column:AllowDragging := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 196
var_Chart:LevelCount := 2
var_Chart:BackColorLevelHeader := oDCOCX_Exontrol1:BackColorHeader
var_Chart:ForeColorLevelHeader := oDCOCX_Exontrol1:ForeColorHeader
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("One")
var_Items:AddItem("Two")
var_Items:AddItem("Three")
oDCOCX_Exontrol1:EndUpdate()
|
|
1970
|
How do I change the z-order of the bars (percent)
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local b,i as USUAL
b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarToolTip]) ))
RETURN NIL
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:DefaultItemHeight := 52
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171010")
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:Bars:Add("Task%Progress"):Shortcut := "Task"
var_Bar := var_Chart:Bars:Copy("Task","T1")
var_Bar:Color := RGB(255,0,0)
var_Bar:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar:[Def,exBarPercent] := 0.25
var_Bar:[Def,exBarPercentColor] := var_Bar:Color
var_Bar:[Def,exBarOffset] := 10
var_Bar:[Def,exBarShowPercentCaption] := true
var_Bar:[Def,exBarPercentCaptionFormat] := "<font ;6><b>%p%</b>"
var_Bar1 := var_Chart:Bars:Copy("Task","T2")
var_Bar1:Height := 26
var_Bar1:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
var_Bar1:[Def,exBarVAlignCaption] := 16
var_Bar1:[Def,exBarPercent] := 0.25
var_Bar1:[Def,exBarPercentColor] := var_Bar1:Color
var_Bar1:[Def,exBarShowPercentCaption] := true
var_Bar1:[Def,exBarPercentCaptionFormat] := "<font ;6><b>%p%</b>"
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"2",nil)
var_Items:[ItemBar,h1,"2",exBarData] := "Bar A"
var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar A <b>Over</b> Bar B"
var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"1",nil)
var_Items:[ItemBar,h1,"1",exBarData] := "Bar B"
var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar B <b>Under</b> Bar A"
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"1",nil)
var_Items:[ItemBar,h1,"1",exBarData] := "Bar A"
var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar A <b>Under</b> Bar B"
var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"2",nil)
var_Items:[ItemBar,h1,"2",exBarData] := "Bar B"
var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar B <b>Over</b> Bar A"
oDCOCX_Exontrol1:EndUpdate()
|
|
1969
|
How do I change the z-order of the bars
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local b,i as USUAL
b := oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1]
i := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemBar,i,b,exBarToolTip]) ))
RETURN NIL
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:DefaultItemHeight := 52
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20171010")
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Bar := var_Chart:Bars:Copy("Task","T1")
var_Bar:Color := RGB(255,0,0)
var_Bar:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","T2")
var_Bar1:Height := 25
var_Bar1:[Def,exBarCaption] := "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
var_Bar1:[Def,exBarVAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"2",nil)
var_Items:[ItemBar,h1,"2",exBarData] := "Bar A"
var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar A <b>Over</b> Bar B"
var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"1",nil)
var_Items:[ItemBar,h1,"1",exBarData] := "Bar B"
var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar B <b>Under</b> Bar A"
h1 := var_Items:AddItem("Task")
var_Items:AddBar(h1,"T1",SToD("20171015"),SToD("20171025"),"1",nil)
var_Items:[ItemBar,h1,"1",exBarData] := "Bar A"
var_Items:[ItemBar,h1,"1",exBarToolTip] := "Bar A <b>Under</b> Bar B"
var_Items:AddBar(h1,"T2",SToD("20171018"),SToD("20171022"),"2",nil)
var_Items:[ItemBar,h1,"2",exBarData] := "Bar B"
var_Items:[ItemBar,h1,"2",exBarToolTip] := "Bar B <b>Over</b> Bar A"
oDCOCX_Exontrol1:EndUpdate()
|
|
1968
|
How do I get the duration/working count of the bar (sample 6,excrd)
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 48
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exHLines
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20011226")
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:Shortcut := "Task"
var_Bar:[Def,exBarToolTip] := "<%=%263%>"
var_Bar:[Def,exBarOffset] := -12
var_Chart:ColumnsFormatLevel := "1,2/3"
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:Visible := false
var_Column:Alignment := LeftAlignment
var_Column:FormatColumn := "value + `d`"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:Visible := false
var_Column1:Alignment := RightAlignment
var_Column1:FormatColumn := "value + `w`"
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working-Period")}
var_Column2:[Def,exCellValueToItemBarProperty] := 263
var_Column2:Visible := false
var_Column2:Alignment := CenterAlignment
var_Column2:FormatColumn := "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020111"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20011231"),SToD("20020113"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1967
|
How do I get the duration/working count of the bar (sample 5)
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemMaxHeight,Item] := 64
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20020101")
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:Shortcut := "Task"
var_Bar:[Def,exBarToolTip] := "<%=%263%>"
var_Chart:ColumnsFormatLevel := "1,2"
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}
var_Column:AllowSizing := false
var_Column:Width := 48
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
var_Column1:[Def,exCellValueToItemBarProperty] := 513
var_Column1:Visible := false
var_Column1:Alignment := LeftAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column2:[Def,exCellValueToItemBarProperty] := 258
var_Column2:Visible := false
var_Column2:Alignment := RightAlignment
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working-Period")}
var_Column3:[Def,exCellValueToItemBarProperty] := 263
var_Column3:[Def,exCellSingleLine] := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020104"),SToD("20020116"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1966
|
How do I get the duration/working count of the bar (sample 4)
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20011226")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:ColumnsFormatLevel := "1,2"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:Visible := false
var_Column:Alignment := LeftAlignment
var_Column:FormatColumn := "value + `d`"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:Visible := false
var_Column1:Alignment := RightAlignment
var_Column1:FormatColumn := "value + `w`"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1965
|
How do I get the duration/working count of the bar (sample 3)
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( var_Items:[CellCaption,Item,0] ))
OutputDebugString(String2Psz( "Working" ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,Item,Key,exBarWorkingCount]) ))
OutputDebugString(String2Psz( var_Items:[CellCaption,Item,0] ))
OutputDebugString(String2Psz( "Duration" ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,Item,Key,exBarDuration]) ))
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20011226")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1964
|
How do I get the duration/working count of the bar (sample 2)
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20011226")
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:Shortcut := "Task"
var_Bar:[Def,exBarCaption] := "<%=%258%>w"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar:[Def,exBarExtraCaption] := "<%=%513%>d"
var_Bar:[Def,exBarExtraCaptionHAlign] := 16
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1963
|
How do I get the duration/working count of the bar (sample 1)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 196
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:Width := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:[Def,exCellValueToItemBarProperty] := 513
IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}:[Def,exCellValueToItemBarProperty] := 258
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20020102"),SToD("20020112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20020103"),SToD("20020115"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1962
|
How can I draw a solid frame around the the focusing item
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:DefaultItemHeight := 20
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:RenderType := -1
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wHIURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJTULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLREE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
oDCOCX_Exontrol1:ShowFocusRect := true
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x1000000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1961
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:DefaultItemHeight := 20
oDCOCX_Exontrol1:ShowFocusRect := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:RenderType := -1
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzVAcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTRWjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
var_Appearance:Add(3,"CP:2 -3 0 3 0")
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x3010101
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1960
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:ShowFocusRect := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
var_Appearance:Add(3,"CP:2 -2 0 2 0")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 1
oDCOCX_Exontrol1:[Background,exShowFocusRect] := 0x3ff0000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1959
|
How can I display the start/end margins of bars, when cursor hovers it like a tooltip
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("exBarToolTip")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Bar.Def"),"Task",SToD("20010102"),SToD("20010109"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Bar.Def"),"Task",SToD("20010103"),SToD("20010110"),"K1",nil)
h := var_Items:AddItem("Items.ItemBar")
var_Items:AddBar(h,"Unknown",SToD("20010104"),SToD("20010111"),"K",nil)
var_Items:[ItemBar,h,"K",exBarToolTip] := "Start:<%=%1%><br>End:<%=%2%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
1958
|
Is it possible to define different kinds of summary bars with using the EBN files
local var_Appearance as IAppearance
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:RenderType := -16777216
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar:Color := RGB(1,0,0)
var_Bar1 := var_Chart:Bars:[Item,"Summary"]
var_Bar1:[Def,exBarHAlignCaption] := 18
var_Bar1:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
hSummaryJ := var_Items:AddItem("Summary A")
var_Items:AddBar(hSummaryJ,"Summary",SToD("20010102"),SToD("20010102"),"J",nil)
hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.1")
var_Items:AddBar(hTaskJ,"Task",SToD("20010102"),SToD("20010105"),"J1",nil)
hTaskJ := var_Items:InsertItem(hSummaryJ,nil,"Task A.2")
var_Items:AddBar(hTaskJ,"Task",SToD("20010104"),SToD("20010108"),"J2",nil)
var_Items:DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
hSummaryK := var_Items:AddItem("Summary B")
var_Items:AddBar(hSummaryK,"Summary",SToD("20010102"),SToD("20010102"),"K",nil)
hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.1")
var_Items:AddBar(hTaskK,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTaskK := var_Items:InsertItem(hSummaryK,nil,"Task B.2")
var_Items:AddBar(hTaskK,"Task",SToD("20010104"),SToD("20010108"),"K2",nil)
var_Items:DefineSummaryBars(hSummaryK,"K",-1,"<*>")
var_Items:[ItemBar,0,"<K*>",exBarColor] := 255
hSummaryZ := var_Items:AddItem("Summary B")
var_Items:AddBar(hSummaryZ,"Summary",SToD("20010102"),SToD("20010102"),"Z",nil)
hTaskZ := var_Items:InsertItem(hSummaryZ,nil,"Task B.1")
var_Items:AddBar(hTaskZ,"Task",SToD("20010102"),SToD("20010105"),"Z1",nil)
hTaskZ := var_Items:InsertItem(hSummaryZ,nil,"Task B.2")
var_Items:AddBar(hTaskZ,"Task",SToD("20010104"),SToD("20010108"),"Z2",nil)
var_Items:DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
var_Items:[ItemBar,hSummaryZ,"Z",exBarColor] := 16842496
var_Items:[ItemBar,0,"<Z1>",exBarColor] := 50266112
var_Items:[ItemBar,0,"<Z2>",exBarColor] := 33554176
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1957
|
How can I display the week-number in ISO8601 format
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20071212")
var_Chart:DrawGridLines := exAllLines
var_Chart:UnitScale := exWeek
var_Chart:[Level,0]:FormatLabel := "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
var_Chart:[Level,1]:FormatLabel := "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
var_Chart:WeekNumberAs := exISO8601WeekNumber
var_Chart:FirstWeekDay := exMonday
oDCOCX_Exontrol1:EndUpdate()
|
|
1956
|
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:DrawGridLines := exVLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Left")}
var_Column:AllowSizing := false
var_Column:Width := 96
var_Column:[Def,exCellHasCheckBox] := true
var_Column:FormatColumn := "0 pos `A-Z`"
var_Column1 := IColumn{var_Columns:Add("Center")}
var_Column1:HeaderAlignment := CenterAlignment
var_Column1:Alignment := var_Column1:HeaderAlignment
var_Column1:AllowSizing := false
var_Column1:Width := 96
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:FormatColumn := "0 pos `A-Z`"
var_Column2 := IColumn{var_Columns:Add("Right")}
var_Column2:HeaderAlignment := RightAlignment
var_Column2:Alignment := var_Column2:HeaderAlignment
var_Column2:AllowSizing := false
var_Column2:Width := 96
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:FormatColumn := "0 pos `A-Z`"
var_Column2:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
var_Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem("Item 1"),3] := 1
var_Items:[CellState,var_Items:AddItem("Item 2"),2] := 1
var_Items:[CellState,var_Items:AddItem("Item 3"),1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1955
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("And others ...")
var_Column := IColumn{var_Columns:Add("")}
var_Column:HTMLCaption := "First Column"
var_Column:HeaderVertical := true
var_Column:Width := 36
var_Column:AllowSizing := false
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellPaddingLeft] := 8
var_Column:Position := 0
var_Column1 := IColumn{var_Columns:Add("")}
var_Column1:HTMLCaption := "<c><b>Second Column"
var_Column1:HeaderVertical := true
var_Column1:Width := 36
var_Column1:AllowSizing := false
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:[Def,exCellPaddingLeft] := 8
var_Column1:Position := 1
var_Column2 := IColumn{var_Columns:Add("")}
var_Column2:HTMLCaption := "<r>Third Column"
var_Column2:HeaderVertical := true
var_Column2:Width := 36
var_Column2:AllowSizing := false
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:[Def,exCellPaddingLeft] := 8
var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem("Item 1"),3] := 1
var_Items:[CellState,var_Items:AddItem("Item 2"),2] := 1
var_Items:[CellState,var_Items:AddItem("Item 3"),1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1954
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:HeaderSingleLine := false
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("And others ...")
var_Column := IColumn{var_Columns:Add("First Column")}
var_Column:HeaderVertical := true
var_Column:Width := 36
var_Column:AllowSizing := false
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellPaddingLeft] := 8
var_Column:Position := 0
var_Column1 := IColumn{var_Columns:Add("Second Column")}
var_Column1:HeaderBold := true
var_Column1:HeaderVertical := true
var_Column1:Width := 36
var_Column1:AllowSizing := false
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:[Def,exCellPaddingLeft] := 8
var_Column1:Position := 1
var_Column2 := IColumn{var_Columns:Add("Third Column")}
var_Column2:HeaderVertical := true
var_Column2:Width := 36
var_Column2:AllowSizing := false
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:[Def,exCellPaddingLeft] := 8
var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem("Item 1"),3] := 1
var_Items:[CellState,var_Items:AddItem("Item 2"),2] := 1
var_Items:[CellState,var_Items:AddItem("Item 3"),1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1953
|
Can I display the column's caption vertically oriented (method 2)
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("And others ...")
var_Column := IColumn{var_Columns:Add("")}
var_Column:HTMLCaption := "First"
var_Column:HeaderVertical := true
var_Column:Width := 20
var_Column:AllowSizing := false
var_Column:[Def,exCellHasCheckBox] := true
var_Column:Position := 0
var_Column1 := IColumn{var_Columns:Add("")}
var_Column1:HTMLCaption := "<c><b>Second"
var_Column1:HeaderVertical := true
var_Column1:Width := 20
var_Column1:AllowSizing := false
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:Position := 1
var_Column2 := IColumn{var_Columns:Add("")}
var_Column2:HTMLCaption := "<r>Third"
var_Column2:HeaderVertical := true
var_Column2:Width := 20
var_Column2:AllowSizing := false
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem("Item 1"),3] := 1
var_Items:[CellState,var_Items:AddItem("Item 2"),2] := 1
var_Items:[CellState,var_Items:AddItem("Item 3"),1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1952
|
Can I display the column's caption vertically oriented (method 1)
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 48
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("And others ...")
var_Column := IColumn{var_Columns:Add("First")}
var_Column:HeaderVertical := true
var_Column:Width := 20
var_Column:AllowSizing := false
var_Column:[Def,exCellHasCheckBox] := true
var_Column:Position := 0
var_Column1 := IColumn{var_Columns:Add("Second")}
var_Column1:HeaderBold := true
var_Column1:HeaderVertical := true
var_Column1:Width := 20
var_Column1:AllowSizing := false
var_Column1:[Def,exCellHasCheckBox] := true
var_Column1:Position := 1
var_Column2 := IColumn{var_Columns:Add("Third")}
var_Column2:HeaderVertical := true
var_Column2:Width := 20
var_Column2:AllowSizing := false
var_Column2:[Def,exCellHasCheckBox] := true
var_Column2:Position := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem("Item 1"),3] := 1
var_Items:[CellState,var_Items:AddItem("Item 2"),2] := 1
var_Items:[CellState,var_Items:AddItem("Item 3"),1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1951
|
How can I resize all task-bars 0-length
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
var_Items:[ItemBarEx,"itembar(513) = 0 and itembar(0) = `Task`",exBarColor] := 255
var_Items:[ItemBarEx,"itembar(513) = 0 and itembar(0) = `Task`",exBarDuration] := "value + 1"
oDCOCX_Exontrol1:EndUpdate()
|
|
1950
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 = 0",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:BackColor := RGB(190,190,190)
var_ConditionalFormat:ChartBackColor := var_ConditionalFormat:BackColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1949
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
var_Items:[ItemBarEx,"itembar(513) = 0",exBarCaption] := "`zero-length`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1948
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
var_Items:[ItemBarEx,"itembar(513) = 0",exBarBackgroundExt] := "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`"
var_Items:[ItemBarEx,"itembar(513) = 0",exBarBackgroundExtInflate] := "`-4,-4,4,4`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1947
|
How can I find how many tasks/bars of 0-length (zero,empty) do I have
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170803"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170805"),nil,nil)
OutputDebugString(String2Psz( AsString(var_Items:[ItemBarEx,"itembar(513) = 0",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1946
|
How can I remove all bars from selected items
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := RGB(240,240,240)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsStack
var_Bar:OverlaidGroup := "Task,Task-Diff"
var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
var_Bar1:Height := 4
var_Bar1:Color := RGB(255,0,0)
var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:[SelectItem,h] := true
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
var_Items:[SelectItem,h] := true
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
OutputDebugString(String2Psz( "Bars before remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
var_Items:[ItemBarEx,"itemisselected",exBarKey] := "`toberemove` + value "
var_Items:RemoveBar(0,"<toberemove*>")
OutputDebugString(String2Psz( "Bars after remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1945
|
How can I remove task bars from selected items
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := RGB(240,240,240)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsStack
var_Bar:OverlaidGroup := "Task,Task-Diff"
var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
var_Bar1:Height := 4
var_Bar1:Color := RGB(255,0,0)
var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:[SelectItem,h] := true
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
var_Items:[SelectItem,h] := true
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
OutputDebugString(String2Psz( "Bars before remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
var_Items:[ItemBarEx,"itemisselected and itembar(0) = `Task`",exBarKey] := "`toberemove` + value "
var_Items:RemoveBar(0,"<toberemove*>")
OutputDebugString(String2Psz( "Bars after remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1944
|
How can I change the pattern for some bars only
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}:[Def,exCellHasCheckBox] := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:[CellState,h,0] := 1
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:[CellState,h,0] := 1
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,"cellstate(0)",exBarPattern] := 6
oDCOCX_Exontrol1:EndUpdate()
|
|
1943
|
How do I apply the same effort to all bars
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramAllItems
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternBDiagonal
var_Bar:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarEffort] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
1942
|
How do I apply the same percent to all bars
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:Add("Task%Progress")
var_Bar:Shortcut := "Task"
var_Bar:[Def,exBarShowPercentCaption] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarPercent] := 0.5
oDCOCX_Exontrol1:EndUpdate()
|
|
1941
|
How can I set the same duration for all bars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarDuration] := 4
oDCOCX_Exontrol1:EndUpdate()
|
|
1940
|
How do I move all bars to end at the same date-time
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarMoveEnd] := "#8/15/2017#"
oDCOCX_Exontrol1:EndUpdate()
|
|
1939
|
How do I move all bars to start at the same date-time
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarMoveStart] := "#8/2/2017#"
oDCOCX_Exontrol1:EndUpdate()
|
|
1938
|
How do I apply a new color for some bars, while others should be shown with a different color
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := RGB(240,240,240)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsStack
var_Bar:OverlaidGroup := "Task,Task-Diff"
var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
var_Bar1:Height := 4
var_Bar1:Color := RGB(255,0,0)
var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,true,exBarColor] := "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00"
oDCOCX_Exontrol1:EndUpdate()
|
|
1937
|
How do I hide some bars, and show others
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:SelBackColor := RGB(240,240,240)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsStack
var_Bar:OverlaidGroup := "Task,Task-Diff"
var_Bar:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar:[Def,exBarHAlignCaption] := 18
var_Bar1 := var_Chart:Bars:Copy("Task","Task-Diff")
var_Bar1:Height := 4
var_Bar1:Color := RGB(255,0,0)
var_Bar1:[Def,exBarCaption] := "<font ;6><%=%0%>"
var_Bar1:[Def,exBarHAlignCaption] := 16
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:[SelectItem,h] := true
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20170804"),SToD("20170813"),"",nil)
var_Items:AddBar(h,"Task-Diff",SToD("20170805"),SToD("20170814"),"P",nil)
var_Items:[SelectItem,h] := true
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
var_Items:[ItemBarEx,"-1",exBarTransparent] := "itembar(0) = `Task` ? 0 : 100"
oDCOCX_Exontrol1:EndUpdate()
|
|
1936
|
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20170802"),SToD("20170806"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20170803"),SToD("20170809"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20170804"),SToD("20170813"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20170805"),SToD("20170816"),nil,nil)
OutputDebugString(String2Psz( "Bars before remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
var_Items:[ItemBarEx,"cellcaption(0) like `*2 *3`",exBarKey] := "`toberemove` + value "
var_Items:RemoveBar(0,"<toberemove*>")
OutputDebugString(String2Psz( "Bars after remove: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1935
|
Is it possible to automatically color the bar being checked
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
var_Chart:FirstVisibleDate := SToD("20170101")
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0","check")
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ApplyToBars := "Task"
var_ConditionalFormat:BarColor := RGB(0,0,1)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:Width := 256
IColumn{oDCOCX_Exontrol1:Columns:Add(oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression)}:FormatColumn := oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20170102"),SToD("20170112"),nil,nil)
h := var_Items:AddItem("Item 2")
var_Items:AddBar(h,"Task",SToD("20170103"),SToD("20170113"),nil,nil)
var_Items:[CellState,h,0] := 1
h := var_Items:AddItem("Item 3")
var_Items:AddBar(h,"Task",SToD("20170104"),SToD("20170114"),nil,nil)
var_Items:[CellState,h,0] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1934
|
How do I automatically bold items being checked
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
RETURN NIL
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%CS0","check")
var_ConditionalFormat:Bold := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}:[Def,exCellHasCheckBox] := true
IColumn{oDCOCX_Exontrol1:Columns:Add(oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression)}:FormatColumn := oDCOCX_Exontrol1:ConditionalFormats:[Item,"check"]:Expression
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:[CellState,var_Items:AddItem("Item 2"),0] := 1
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1933
|
Can I display the radio-button with a solid color
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:[RadioImage,false] := 32699122
oDCOCX_Exontrol1:[RadioImage,true] := 16777216
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasRadioButton] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Radio 1")
var_Items:[CellState,var_Items:AddItem("Radio 2"),0] := 1
var_Items:AddItem("Radio 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1932
|
Can I display the check-box with a solid color
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 32699122
oDCOCX_Exontrol1:[CheckImage,Checked] := 16777216
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Check 1")
var_Items:[CellState,var_Items:AddItem("Check 2"),0] := 1
var_Items:AddItem("Check 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1931
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
RETURN NIL
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInsideLeaf
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
var_Column1:FormatColumn := "%CS0"
var_Column1:Caption := var_Column1:FormatColumn
var_Column1:[Def,exCellForeColor] := 8421504
var_Column1:[Def,exHeaderForeColor] := var_Column1:[Def,exCellForeColor]
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Item 1")
var_Items:[CellState,var_Items:InsertItem(h,nil,"Item 2"),0] := 1
var_Items:[CellState,var_Items:InsertItem(h,nil,"Item 3"),0] := 1
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1930
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Items")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
var_Column:FormatColumn := "%CD0"
var_Column:Caption := var_Column:FormatColumn
var_Column:[Def,exCellForeColor] := 8421504
var_Column:[Def,exHeaderForeColor] := var_Column:[Def,exCellForeColor]
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellData,var_Items:AddItem("Item 1"),0] := 1234
var_Items:[CellData,var_Items:AddItem("Item 2"),0] := "this is just an user data"
var_Items:[CellData,var_Items:AddItem("Item 3"),0] := SToD("20010101")
oDCOCX_Exontrol1:EndUpdate()
|
|
1929
|
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn
local var_Column,var_Column1,var_Column2 as IColumn
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Editor := var_Column:Editor
var_Editor:EditType := DropDownListType
var_Editor:AddItem(1,"Item 1",nil)
var_Editor:AddItem(2,"Item 2",nil)
var_Editor:AddItem(3,"Item 3",nil)
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
var_Column1:FormatColumn := "%0"
var_Column1:Caption := var_Column1:FormatColumn
var_Column1:[Def,exCellForeColor] := 8421504
var_Column1:[Def,exHeaderForeColor] := var_Column1:[Def,exCellForeColor]
var_Column1:AllowSizing := false
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Format")}
var_Column2:FormatColumn := "%C0"
var_Column2:Caption := var_Column2:FormatColumn
var_Column2:[Def,exCellForeColor] := 8421504
var_Column2:[Def,exHeaderForeColor] := var_Column2:[Def,exCellForeColor]
var_Column2:AllowSizing := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:[CellValue,var_Items:AddItem(0),0] := 2
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
1928
|
How can I use the ShowNonworkingHours property (hide the non-working hours)
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 16253183
var_Chart:ShowNonworkingHours := false
var_Chart:ShowNonworkingUnits := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1927
|
How can I use the ShowNonworkingDates property (hide the non-working days)
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:UnitScale := exDay
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingUnits := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1926
|
How can I show/hide bars once the user checks or un-checks a column
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBarEx,true,exBarTransparent] := "cellstate(0) = 1 ? 0 : 100"
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,true,exBarTransparent] := "cellstate(0) = 1 ? 0 : 100"
oDCOCX_Exontrol1:EndUpdate()
|
|
1925
|
How can I change the color for all Task bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarColor] := 65280
oDCOCX_Exontrol1:EndUpdate()
|
|
1924
|
Is it possible to automatically select bars only when user selects a new item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBarEx,true,exBarSelected] := "itemisselected"
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowSelectObjects := exNoSelectObjects
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1923
|
Is it possible to automatically select bars only when the user clicks the column's checkbox
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBarEx,true,exBarSelected] := "cellstate(0) = 1"
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowSelectObjects := exNoSelectObjects
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1922
|
How do I select all bars on leaf items
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"itemlevel = 1",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1921
|
How can I change the caption for all checked Task bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"(cellstate(0) = 1) and (itembar(0) = `Task`)",exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1920
|
How can I change the caption for all Task bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1919
|
How can I change the caption for all bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,true,exBarCaption] := "`new caption`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1918
|
How can I move all Task bars to end at the same date time
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarMove] := "#8/14/2017# - itembar(2)"
oDCOCX_Exontrol1:EndUpdate()
|
|
1917
|
How can I move all Task bars to start at the same date time
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"(itembar(0) = `Task`)",exBarMove] := "#8/3/2017# - itembar(1)"
oDCOCX_Exontrol1:EndUpdate()
|
|
1916
|
How can I change the color for checked Task bars
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"cellstate(0) = 1 and itembar(0) = `Task`",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1915
|
How do I resize all Task bars programatically
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarEnd] := "value + 2"
oDCOCX_Exontrol1:EndUpdate()
|
|
1914
|
How do I move just the checked Task bars in the chart
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"cellstate(0) = 1 and itembar(0) = `Task`",exBarMove] := -2
oDCOCX_Exontrol1:EndUpdate()
|
|
1913
|
How do I move all Task bars in the chart
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarMove] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
1912
|
How do I count all Task bars in the chart
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Tasks")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
OutputDebugString(String2Psz( AsString(var_Items:[ItemBarEx,"itembar(0) = `Task`",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1911
|
How do I select bars whose items are checked
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:SelBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20170801")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Summary"]
var_Bar:StartShape := exShapeIconEmpty
var_Bar:EndShape := exShapeIconEmpty
var_Bar:Shape := exShapeThinDown
var_Chart:SelBackColor := oDCOCX_Exontrol1:SelBackColor
var_Chart:SelBarColor := RGB(128,128,128)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20170802"),SToD("20170808"),nil,nil)
var_Items:[SelectItem,hChild] := true
hChild := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20170803"),SToD("20170810"),nil,nil)
var_Items:[CellState,hChild,0] := 1
hChild := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20170804"),SToD("20170812"),nil,nil)
var_Items:[CellState,hChild,0] := 1
var_Items:AddBar(h,"Summary",SToD("20170801"),SToD("20170801"),"sum",nil)
var_Items:DefineSummaryBars(h,"sum",-3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBarEx,"cellstate(0) = 1",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1910
|
How can I select all bars, where a specified column matches a specified criteria
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:SelBarColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBarEx,"cellcaption(0) = `Task 1`",exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1909
|
How can I select/unselect all bars
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:SelBarColor := RGB(255,0,0)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBarEx,true,exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1908
|
Is it possible to set the background color of the chart for one item and one day
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Items")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item")
h := var_Items:AddItem("Item")
var_Items:AddBar(h,"",SToD("20010102"),SToD("20010103"),"Back"," ")
var_Items:[ItemBar,h,"Back",exBarBackColor] := 255
var_Items:[ItemBar,h,"Back",exBarSelectable] := false
var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()
|
|
1907
|
It is possible to search for an item ( inside the Editor ), case insensitive
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}:Editor
var_Editor:EditType := DropDownListType
var_Editor:AddItem(1,"One",nil)
var_Editor:AddItem(2,"Two",nil)
var_Editor:AddItem(3,"Three",nil)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">ONE"])
var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">ThRee"])
var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,"ONE"])
var_Items:AddItem(oDCOCX_Exontrol1:Columns:[Item,0]:Editor:[FindItem,">tWo"])
oDCOCX_Exontrol1:EndUpdate()
|
|
1906
|
The text after the BR-tag is in same line as the text before the BR-tag (entire column)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:[Def,exCellSingleLine] := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is the first line.<br>This is the second line.")
var_Items:AddItem("This is the first line.<br>This is the second line.")
var_Items:AddItem("This is the first line.<br>This is the second line.")
oDCOCX_Exontrol1:EndUpdate()
|
|
1905
|
The text after the BR-tag is in same line as the text before the BR-tag (individual)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValueFormat,var_Items:AddItem("This is the first line.<br>This is the second line."),0] := exHTML
h := var_Items:AddItem("<b>This is the first line.<br>This is the second line.</b>")
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
var_Items:[CellValueFormat,var_Items:AddItem("This is the first line.<br>This is the second line."),0] := exHTML
oDCOCX_Exontrol1:EndUpdate()
|
|
1904
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:BackColorAlternate := 0x7ff0f0f0
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010113"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20010103"),SToD("20010113"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 5"),"Task",SToD("20010102"),SToD("20010112"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1903
|
Can I disable an item once the user selects a new value into a different item
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[EnableItem,var_Items:[ItemByIndex,1]] := false
RETURN NIL
local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:FreezeEvents(true)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
oDCOCX_Exontrol1:Columns:Add("A")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("What's your gender?")
var_Editor := var_Items:[CellEditor,h1,1]
var_Editor:EditType := DropDownListType
var_Editor:AddItem(1,"Male",nil)
var_Editor:AddItem(0,"Female",nil)
var_Items:[CellValue,h1,1] := 1
h2 := var_Items:AddItem("What's pet name?")
var_Items:[CellValue,h2,1] := "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
var_Items:[CellSingleLine,h2,1] := exCaptionWordWrap
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:FreezeEvents(false)
|
|
1902
|
How can I get a row expanded / enlarged to fit the cell's text (entire column)
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("A")}
var_Column:[Def,exCellSingleLine] := false
var_Editor := var_Column:Editor
var_Editor:EditType := MemoType
var_Editor:Appearance := SingleApp
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("What's name?")
var_Items:[CellValue,h1,1] := "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
h2 := var_Items:AddItem("What's your pet name?")
var_Items:[CellValue,h2,1] := "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
oDCOCX_Exontrol1:EndUpdate()
|
|
1901
|
How can I get a row expanded / enlarged to fit the cell's text (individual cell)
local var_Editor as IEditor
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Q")
oDCOCX_Exontrol1:Columns:Add("A")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("What's name?")
var_Items:[CellValue,h1,1] := "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
h2 := var_Items:AddItem("What's your pet name?")
var_Editor := var_Items:[CellEditor,h2,1]
var_Editor:EditType := MemoType
var_Editor:Appearance := SingleApp
var_Items:[CellValue,h2,1] := "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
var_Items:[CellSingleLine,h2,1] := exCaptionWordWrap
oDCOCX_Exontrol1:EndUpdate()
|